home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / ASSEMBLE / H055.ZIP / MAC / FREEMAIN.MAC < prev    next >
Text File  |  1987-08-12  |  484b  |  28 lines
  1. FREEMAIN MACRO RU,LV=(1),A=(2)
  2.      AIF   /&LABEL$$=/ .GO
  3. &LABEL$$ EQU   *
  4. .GO     AIF   &1=V.TYPEV
  5.      AIF   &LV=(.REG
  6.      AIF   &LV>4095.L
  7.      LA    1,&LV
  8.      AGO   .A
  9. .L     L     1,=F'&LV'
  10.      AGO   .A
  11. .REG     AIF   &LV=(1).A
  12.      LR    1,&LV
  13. .A     AIF   &A=(.AREG
  14.      L     2,&A
  15.      AGO   .SVC
  16. .AREG     AIF   &A=(2).SVC
  17.      LR    2,&A
  18.      AGO   .SVC
  19. .TYPEV     L     1,&A+4
  20.      L     2,&A
  21. .SVC     SVC   11
  22.      LTR   0,0
  23.      BZ    *+16
  24.      LA    2,=C'ABEND 90A$'
  25.      SVC   209
  26.      SVC   9
  27.      DC    C'BUG '
  28.